home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 06 - 1990 / 06.12 Dec 90 / CleanPict Source / CleanPict.r < prev    next >
Encoding:
Text File  |  1990-07-29  |  2.1 KB  |  140 lines  |  [TEXT/KAHL]
  1. *
  2. * Resources for CleanPict
  3. *
  4. CleanPICT.π.rsrc
  5. APPL????            ;; APPL, followed by your "signature"
  6.  
  7. type STR#
  8. Info, 1
  9. 3
  10. CleanPICT removes noise from PICT files.
  11. Copyright © 1990 Martin Minow and MacTutor
  12. Version of July 9, 1990
  13.  
  14. *
  15. * Menus
  16. *
  17. type MBAR=GNRL            ;; The menu bar
  18. , 1000                            ;; MBAR_Menu_Bar
  19. .i
  20. 3
  21. 1 256 257                     ;; MENU...
  22.  
  23. Type MENU                        ;; Stuff in the menu bar
  24. ,1                                    ;; MENU_Apple
  25. \14
  26.     About CleanPICT
  27.     (-
  28.  
  29. ,256                                ;; MENU_File
  30. File
  31.     Open PICT/O\C9
  32.     Clean
  33.     Set Threshold\C9
  34.     Close
  35.     Save As/S\C9
  36.     Debug
  37.     (-
  38.     Quit/Q
  39.  
  40. ,257                                ;; MENU_Edit
  41. Edit
  42.     Undo                            ;;  1
  43.     (-                                ;;  2
  44.     Cut                                ;;  3
  45.     Copy                            ;;  4
  46.     Paste                            ;;  5
  47.     Clear                            ;;  6
  48.  
  49. *
  50. * The Status (About) Window
  51. *
  52. Type WIND                        ;; Display window
  53. , 1000                            ;; WIND_About
  54. About CleanPICT            ;; Title
  55. 100 100 260 360            ;; Top Left Bottom Right
  56. Visible GoAway            ;; Attributes
  57. 4                                        ;; noGrowDocProc
  58. 0                                        ;; refCon
  59.  
  60. *
  61. * Set Threshold Dialog
  62. *
  63. Type DLOG
  64. Set Threshold, 1000    ;; DLOG_Set_Threshold
  65. Set Threshold
  66. 100  100  200 300
  67. inVisible NoGoAway
  68. 1
  69. 0
  70. 1000
  71.  
  72. Type DITL
  73. Set Threshold, 1000    ;; DLOG_Set_Threshold
  74. 4
  75.  
  76. BtnItem Enabled            ;; Ok
  77.  71 135  97 184
  78. OK
  79.  
  80. BtnItem Enabled
  81.  71  34  97  83
  82. Cancel                            ;; Cancel
  83.  
  84. StatText Disabled        ;; Threshold_Text
  85.  13  17  33 190
  86. Set Island Threshold
  87.  
  88. EditText Disabled        ;; Threshold_Value
  89.  40  19  57  87
  90.  
  91. *
  92. * Ask whether the file should really be discarded.
  93. *
  94. Type ALRT
  95. ,2000                            ;; ALRT_Advise
  96. 100 100 250 400
  97. 2000                            ;; ALRT_Advise
  98. 4444
  99.  
  100. Type DITL
  101. ,2000                            ;; ALRT_Advise
  102. 4
  103.  
  104. BtnItem Enabled
  105.  67  37 91 123
  106. Save
  107.  
  108. BtnItem Enabled
  109. 104  37 128 123
  110. Discard
  111.  
  112. BtnItem Enabled
  113.  85 184 109 270
  114. Cancel
  115.  
  116. StatText Disabled
  117.  10  69  58 287
  118. Save changes to ^0?
  119.  
  120. *
  121. * Wait cursors (must be in order).
  122. *
  123. Type CURS = GNRL
  124. , 2000
  125. .h
  126. 0000 7878 CCCC CCCC CCCC 7FF8 0CC0 0CC0
  127. 7FF8 CCCC CCCC CCCC 7878 0000 0000 0000
  128. 0000 7878 CCCC CCCC CCCC 7FF8 0CC0 0CC0
  129. 7FF8 CCCC CCCC CCCC 7878 0000 0000 0000
  130. 0006 0006
  131.  
  132. , 2001
  133. .h
  134. 0000 7878 CCCC CCCC CCCC 7FF8 0CC0 0CC0
  135. 7FF8 CCCC CCCC CCCC 7878 0003 0003 0000
  136. 0000 7878 CCCC CCCC CCCC 7FF8 0CC0 0CC0
  137. 7FF8 CCCC CCCC CCCC 7878 0003 0003 0000
  138. 0006 0006
  139.  
  140.